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Preface 

Manual Objectives 



The VAX FORTRAN Language Summary is intended as a quick reference for use when you are writing 
FORTRAN programs, and not as a formal or complete description of the language. 

Associated Documents 

The following documents contain more detailed information: 

• The Programming in VAX FORTRAN contains detailed reference information on the VAX FORTRAN lan- 
guage elements summarized in this booklet. 

• The VAX FORTRAN User's Guide contains detailed VAX FORTRAN information on using the VAXA^MS 
operating system. 

For a list of other related VAXA^MS documents, see the VAX/VMS Master Index and the Introduction to the 
VAX/VMS Document Set. 



Symbols and Conventions 

• Brackets ( [ ] ) enclose optional language elements. Long brackets enclose lists of elements from which one and 
only one element may be chosen. 

• Braces ( | j ) enclose lists of items from which one and only one item must be chosen. 

• Horizontal ellipses (,...) indicate that additional parameters, options, or values can be entered. When a comma 
precedes the ellipses, it indicates that successive items must be separated by commas. 

• Text in blue ink describes language features that are VAX extensions to the FORTRAN-77 standard. 



Command Formats 
FORTRAN Command 

The FORTRAN command compiles one or more FORTRAN source programs into separate object modules, or 
concatenates and compiles one or more programs into a single object module. You can also specify text libraries 
to search for modules specified by INCLUDE statements in the source files. 

By default, FORTRAN searches: 

1. Libraries specified on the FORTRAN command in the order they are specified. 

2. The library associated with the logical name FOR$ LIBRARY, if a logical name assignment exists for 
FOR$LIBRARY. 

3. FOR$LIBRARY:FORSYSDEF.TLB. 



FORTRAN Command Format 



FORTRAN [/qualifier...] file-spec[/qualifier...],. 



Command Qualifiers 

/[NO]CHECK[=option] 

/CONTINUATIONS=n 

/[NOJCROSS—REFERENCE 

/[NO]DEBUG[=option] 

/[NO]D_LINES 

/DML 

/[NO]EXTEND_SOURCE 

/[NO]F77 



Default 

/CHECK=(NOBOUNDS, 

OVERFLOW, 

NOUNDERFLOW) 
/C0NTINUATI0NS=19 
/NOCROSS—REFERENCE 
/DEBUG=(NOSYMBOLS,TRACEBACK) 
/NOD_LINES 

/NOEXTEND_SOURCE 

/F77 



VAX FORTRAN Language Summary 1 



Command Qualifiers 



Default 



/[NO]G_FLOATING 
/(N0]I4 
A.IBRARY 
/[NO]LIST[=fiIe-spec] 

/[NO]MACHINE_CODE 
/[NO]OBJECT[=file-spec] 
/[NOIOPTIMIZE 

/[NO]SHOW[=(option[,...])] 



/[NO]STANDARD[=(option[,...])] 
/[NO] WARNINGS [=(option [,...])] 



/NOG_FLOATING 

/I4 

/NOLIST (interactive default) 

/LIST (batch default) 

/NOMACHINE_CODE 

/OBJECT 

/OPTIMIZE 

/SHOW=(NOINCLUDE, 

NODICTIONARY, 

MAP, 

NOPREPROCESSOR, 

SINGLE) 
/NOSTANDARD=(SYNTAX,NOSOURCE_FORM) 
/WARNINGS=GENERAL,NODECLARATION) 



File Qualifier 

/LIBRARY 

file-spec [,...] 

Specifies one or more FORTRAN source files to be compiled and, optionally, libraries to be searched for 
INCLUDE files that are referenced in the source file(s). 

You must separate multiple input file specifications with either commas (,) or plus signs ( + ). The commas and 
plus signs have different meanings, as follows; 

• Commas delimit FORTRAN source files to be compiled separately. FORTRAN compiles each file and creates 
an object module for each. 

• Plus signs delimit files to be concatenated or libraries containing INCLUDE files. FORTRAN compiles the 
source files as a single file and creates one object module. Library file specifications must be preceded by a plus 
sign and qualified with the /LIBRARY qualifier. If no file type is specified, FORTRAN assumes the default 
type of TLB. 
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LINK Command 

The LINK command binds one or more object modules into an executable image that can be executed with the 
RUN command. You can also specify object module libraries to be searched for modules and symbols referenced, 
but not defined in the object module(s) being linked. 

By default, the linker searches: 

1. Libraries specified in the LINK command in the order they are specified. 

2. Libraries defined by the logical names LNK$LIBRARY, LNK$LIBRARY_1, LNK$LIBRARY_2, and so on, 
that may exist in the process, group, or system logical name tables. 

3. The default system library. 



LINK Command Format 

LINK[/qualifier...] file-spec[/qualifier. 



Command Qualifiers 



Default 



/BRIEF 

/[NOICONTIGUOUS 

/[NO]CROSS_REFERENCE 

/[NO]DEBUG 

/[NO]EXECUTABLE[=file-spec] 

/FULL 

/HEADER 

/[NO]MAP[=file-spec] 

/[NO]SHAREABLE[=file-spec] 

/[NO]SYSLIB 

/[NOJSYSSHR 

/[NO]TRACEBACK 

/[NO]USERLIBRARY[=(table[,...])] 



/NOCONTIGUOUS 
/NOCROSS_REFERENCE 
/NODEBUG 
/EXECUTABLE 



/NOMAP (interactive) 

/MAP (batch) 

/NOSHAREABLE 

/SYSLIB 

/SYSSHR 

/TRACEBACK 

/USERLIBRARY-ALL 
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File QualiHers 

/INCLUDE=(module-name[,...]) 

/LIBRARY 

/OPTIONS 

/SELECTIVE_SEARCH 

file-spec [,...] 

Specifies one or more input files. The input files can be object modules to be linked, libraries to be searched 
for external references or from which specific modules are to be included, shareable images to be included 
in the output image, or option files to be read by the linker. If you specify multiple input files, separate the 
file specifications with commas (,) or plus signs ( + ). In either case, the linker creates a single image file. 

If you do not specify a file type in an input file specification, the linker supplies default file types, based on 
the nature of the file. All object modules are assumed to have file types of OBJ. 

No wildcard characters are allowed in the file specification. 



LIBRARY Command 

The LIBRARY command creates and maintains libraries of text modules and object modules. Text libraries 
contain modules having FORTRAN source statements, and are included during compilation if specified in 
INCLUDE statements. Object module libraries contain object modules to be included in images during linking. 

The LIBRARY command assumes, by default, that it is operating on an object module library. You must specify 
/TEXT to perform an operation on a text library. 

LIBRARY Command Format 

LIBRARY[/qualifier...] Iibrary-file-spec[/qualifier] [input-file-spec[,...]] 
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Command QualiHers 

/COMPRESS[=option[,...])] 

/CREATE[=(option[,...])] 

/CROSS_REFERENCE[=(option[,...])] 

/DELETE=(module[,...]) 

/EXTRACT=(module[,...]) 

/FULL 

/HELP 

/INSERT 

/MACRO 

/OBJECT 

/ONLY=(module[,...]) 

/OUTPUT=file-spec 

/REMOVE=(symbol[,...]) 

/REPLACE 

/SELECTIVE_SEARCH 

ATEXT 

/WIDTH=n 



Command QualiHers 



Default 



/[NOJGLOBALS 

/[NO]LIST[=file-spec] 
/[NOILOG 
/[NOINAMES 
/[NOJSQUEEZE 



/GLOBALS 

/NOLIST 

/NOLOG 

/NONAMES 
/SQUEEZE 



File Qualifiers 

/MODULE=module-name 
library-file-spec 

Specifies the name of the hbrary you want to create or modify. 

If the file specification does not include a file type, the LIBRARY command assumes a default type of OLB. 
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input-file-spec[,...] 

Specifies the names of one or more files that contain modules you want to replace or insert into the specified 
library. 

When you use the /CREATE qualifier, the input file specification is optional. When you use the 
/EXTRACT qualifier, an input file specification is not permitted. 

If a file specification does not include a file type, the LIBRARY command assumes a default file type of 
OBJ. You can control the default file type by specifying one of the following qualifiers on the LIBRARY 
command: 

Qualifier Default File Type 



/HELP 


HLP 


/MACRO 


MAR 


/OBJECT 


OBJ 


/TEXT 


TXT 


/SHARE 


EXE 
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Language Summary 
Order of Statements 

The following figure shows the required order of statements in a FORTRAN program unit. In this figure, vertical 
lines separate statement types that can be interspersed. For example, DATA statements can be interspersed with 
executable statements. Horizontal lines indicate statement types that cannot be interspersed with executable 
statements. 

Statements in the 'executable' category include: ACCEPT, ASSIGN, assignment statements, BACKSPACE, 
CALL, CLOSE, CONTINUE, DELETE, DO and END DO, ELSE, ENDFILE, FIND, GO TO, IF and END IF, 
INQUIRE, OPEN, PAUSE, PRINT, READ, RETURN, REWIND, REWRITE, STOP, TYPE, UNLOCK, and 
WRITE. 

Statements in the 'specification' category include: COMMON, DICTIONARY, DIMENSION, EQUIVALENCE, 
EXTERNAL, INTRINSIC, RECORD, SAVE, structure declarations, type declarations, and VOLATILE. 



OPTIONS Stalen 



INCLUDE 
Statements 



PROGRAM. FUNCTION, SUBROUTINE, or BLOCK DATA Statements 

IMPLICIT NONE Statement 

IMPLICIT 
Statements 



NAMELIST 
FORMAT 

and 

ENTRY 

Statements 



DATA 
Statement; 



Other 
Specification 
Statements 



PARAMETER 
Statements 



Statement Function 
Definitions 



END Statement 



Executable 
Statements 



Required Order of Statements and Lines 

VAX FORTRAN Language Summary 7 



statements 

accept-statement: 

ACCEPT See READ 

assign -statement : 

ASSIGN s TO V 
assignment-statement: 

V = e 
backspace-statement: 

BACKSPACE ([UNIT=]u[,ERR=s][,IOSTAT=ios]) 

BACKSPACE u 
blockdata-statement: 

BLOCK DATA [nam] 



call-statement: 

CALL sub[([a][,[a]]...)] 
close-statement: 

CLOSE ([UNIT=]u[,p][,ERR=s][,IOSTAT=ios]) 

p is one of the following parameters: 

{'SAVE' 
KEEP' 
DELETE' 
'PRINT' 
'SUBMIT' 
PRINT/DELETE 
SUBMIT/DELETE'. 
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common-statement: 

COMMON [/[cb]/]nlist[[,] /[cb]/nlist]... 
continue-statement: 

CONTINUE 
data-statement: 

DATA nlist/clist/[[,] nlist/clist/]... 
data-type-declaration (see type-declaration) 
decode-statement: 

DECODE (c,f,b[,ERR=s][,IOSTAT-ios]) [iolist] 
definefile-statement: 

DEFINE FILE u(m,n,U,v)[,u(m,n,U,v)] 



delete-statement: 

DELETE ([UNIT=]u[,REC=r][,ERR=s][,IOSTAT=ios]) 

DELETE (u 'r[,ERR=s][,IOSTAT=ios]) 
dictionary-statement: 

DICTIONARY 'cdd-path[/[NO]LIST] ' 
dimension-statement: 

DIMENSION a([d1:]d2)[,a([d1:]d2)]... 
do-statement: 

DO [s[,]] v=e1,e2[,e3] 

DO [s[,]] WHILE (e) 
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else-statement: 

ELSE 

ELSE IF (e) THEN 
encode-statement: 

ENCODE (c,f,b[,ERR=s][,IOSTAT=ios]) [iolist] 
end-statement: 

END 

END DO 

END IF 

END MAP 

END STRUCTURE 

END UNION 



endfile-statement: 

ENDFILE ([UNIT=]u[,ERR=s][,IOSTAT=ios]) 

ENDFILE u 
entry-statement: 

ENTRY nam[([p[,p]...])] 
equivalence-statement: 

EQUIVALENCE (nlist)[,(nlist)]... 
external-statement: 

EXTERNAL v[,v]... 

EXTERNAL *v[,*v]... 
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find-statement: 

FIND ([UNIT=]u,REC=r[,ERR=s][,IOSTAT=ios]) 

FIND (u'r[,ERR=s][,IOSTAT=ios]) 
format-statement: 

FORMAT (field-spec[,...]) 
function-statement: 

[typ] FUNCTION nam[*m][([p[,p]...])] 
goto-statement: 

Go TO s 

GO TO (slist)[,] e 

GO TO v[[,](slist)] 



if-statement: 

IF (e) s1,s2,s3 

IF (e) St 

IF (e1) THEN 

block 
ELSE IF (e2) THEN 

block 

ELSE 

block 
END IF 
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implicit-statement: 

IMPLICIT typ(a[,a]... )[,typ(a[,a].. .)]... 

IMPLICIT NONE 
include-statement: 

INCLUDE 'file-spec[/[NO]LIST]' 

INCLUDE '[file-spec](module-name)[/[NO]LIST] ' 
inquire-statement: 

INQUIRE(par[,par]...) 

par is a keyword specification having one of these forms: 

key 

key = value 

key is a keyword as described below. 

value depends on the keyword. 



Keyword 



Values 



inputs 



FILE 


fin 


UNIT 


e 


DEFAULTFILE 


fin 


outputs 




ACCESS 


cv 


BLANK 


cv 


CARRIAGECONTROL 


cv 


DIRECT 


cv 


ERR 


s 


EXIST 


Iv 


FORM 


cv 


FORMATTED 


cv 
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Keyword Values 

Outputs 



lOSTAT 


V 


KEYED 


cv 


NAME 


cv 


NAMED 


Iv 


NEXTREC 


V 


NUMBER 


V 


OPENED 


Iv 


ORGANIZATION 


cv 


RECL 


V 


RECORDTYPE 


cv 


SEQUENTIAL 


cv 


UNFORMATTED 


cv 



instrinsic-statement: 

INTRINSIC v[,v]... 
map-declaration (see union-declaration) 
namelist-statement: 

NAMELIST /grp/ nlist[[,] /grp/ nlist]... 
open-statement: 

OPEN (par[,par]...) 

par Is a keyword specification in one of the following forms: 

key 

key = value 
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key is a keyword 


, as 


described below. 


value depends on 


the keyword. 


Keyword 




Values 


ACCESS 




'SEQUENTIAL 
'DIRECT' 
'KEYED' 
'APPEND' 


ASSOCIATEVARIABLE 




V 


BLOCKSIZE 




e 


BLANK 




'NULL' 
'ZERO' 


BUFFERCOUNT 




e 


CARRIAGECONTROL 




'FORTRAN' 

'LIST' 

'NONE' 


DEFAULTFILE 




c 


DISP 




(same as DISPOSE) 



DISPOSE 



ERR 

EXTENDSIZE 
FILE 
FORM 

INITIALSIZE 

lOSTAT 

KEY 

MAXREC 

NAME 



KEEP' or SAVE' 
'PRINT' 
'DELETE' 
'SUBMIT' 
SUBMIT/DELETE' 
PRINT/DELETE' 
s 
e 
c 
'FORMATTED' 
'UNFORMATTED' 
e 

V 

keyspec 

e 
(same as FILE) 
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Keyword 

NOSPANBLOCKS 
ORGANIZATION 



READONLY 
RECL 

RECORDSIZE 
RECORDTYPE 



Values 



SEQUENTIAL 
•RELATIVE' 
INDEXED' 



(same as RECL) 
'FIXED' 
'VARIABLE' 
'SEGMENTED' 
STREAM' 
'STREAM_CR' 
'STREAM_LF' 



SHARED 
STATUS 



TYPE 
UNIT 
USEROPEN 

options-statement: 



OLD' 
'NEW 
SCRATCH' 
'UNKNOWN' 
(same as STATUS) 
e 
P 



OPTIONS qualifier[,qualifier...] 
/NOCHECK 
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I ALL \ 

([NO]OVERFLOW) I 
([NO]BOUNDS) \ 

([NO]UNDERFLOW)l 
NONE ; 

/[NO]EXTEND_SOURCE 
/[NO]F77 

/[NO]G_FLOATING 
/[N0]I4 

parameter-statement: 

PARAMETER (p=c[,p=c]...) 
pause-statement: 

PAUSE [disp] 



print-statement: 

PRINT See WRITE 
program-statement: 

PROGRAM nam 
read-statement: 

READ Statement — Formatted Sequential Access 

READ (extu,fmt[,err][,iostat][,end]) [iolist] 

READ f[,lolist] 

ACCEPT f[,iolist] 
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READ Statement — List-Directed Sequential Access 

READ (extu,*[,err][,iostat][,end]) [iolist] 

READ *[,iolist] 

ACCEPT *[,iolist] 

READ Statement — Namelist-Directed Sequential Access 

READ (extu,nml[,err][,iostat][,encl]) 

READ n 

ACCEPT n 

READ Statement — Unformatted Sequential Access 

READ (extu[,err][,iostat][,end]) [iolist] 



READ Statement — Formatted Direct Access 

READ (extu,fmt,rec[,err][,iostat]) [iolist] 

READ (u'r,fmt[,err][,iostat]) [iolist] 

READ Statement — Unformatted Direct Access 

READ (extu,rec[,err][,iostat]) [iolist] 

READ (u'r[,err][,iostat]) [iolist] 

READ Statement — Formatted Indexed 

READ (extu,fmt,keyspec[,keyid][,err][,iostat]) [iolist] 

READ Statement — Unformatted Indexed 

READ (extu,keyspec[,l<eyid][,err][,iostat]) [iolist] 
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READ Statement — Formatted Internal 

READ (intu,fmt[,err][,iostat][,end]) [iolist] 
READ Statement — List-Directed Internal 

READ (intu,*[,err][,iostat][,end]) [iolist] 

record-statement: 

RECORD /struc/rnllst 
[,/struc/rnlist] 

[,/struc/rnlist] 
return-statement: 
RETURN [i] 



rewind-statement: 

REWIND ([UNITHu[,ERR=s][,IOSTAT=ios]) 
REWIND u 

rewrite-statement: 

REWRITE Statement — Formatted Indexed 
REWRITE (extu,fmt[,err][,iostat]) [lollst] 
REWRITE Statement — Unformatted Indexed 
REWRITE (extu[,err][,iostat]) [iolist] 

save-statement: 

SAVE [a[,a]...] 
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Statement Function: 

fun([p[,p]...]) = e 
stop-statement: 

STOP [disp] 

structure-declaration-block: 

STRUCTURE [/struc/] [fnlist] 
fdcl 
[fdcl] 



[fdcl] 
END STRUCTURE 



subroutine-statement: 

SUBROUTINE sub[([p[,p]...])] 
type-statement See WRITE 
type-declaration (character): 

CHARACTER[*len[,]] v[*len]I/clist/][,v[*len][/clist/]]. 
type -declaration (numeric): 

typ v[/clist/l[,v[/clist/]]... 
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union-declaration: 

UNION 

mdcl 
imdcl] 



[mdcl] 
END UNION 
where mdcl is: 

MAP 

fdcl 

[fdcl] 



[fdcll 
END MAP 



unlock-statement: 

UNLOCK ([UNIT=]u[,ERR=s][.IOSTAT=ios]) 

UNLOCK u 
virtual-statement: 

VIRTUAL a([d1 :]d2)[,a([d1 :]d2)]... 
volatile-statement: 

VOLATILE nlist 
write-statement: 

WRITE Statement — Formatted Sequential Access 

WRITE (extu,fmt[,err][,iostat]) [iolist] 
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PRINT f[,iolist] 

TYPE f[,iolist] 

WRITE Statement — List-Directed Sequential Access 

WRITE (extu,*[,err][,iostat]) [iolist] 

PRINT *[,iolist] 

TYPE *[, iolist] 

WRITE Statement — Namelist-Directed Sequential Access 

WRITE (extu,nml[,err][,iostat]) 

PRINT n 

TYPE n 

WRITE Statement — Unformatted Sequential Access 

WRITE (extu[,err][,iostat]) [iolist] 



WRITE Statement — Formatted Direct Access 

WRITE (extu,rec,fmt[,err][,iostat]) [iolist] 

WRITE (u'r,f[,err][,lostat]) [iolist] 

WRITE Statement — Unformatted Direct Access 

WRITE (extu,rec[,err][,iostat]) [iolist] 

WRITE (u'r[,err][,iostat]) [iolist] 

WRITE Statement — Formatted Internal 

WRITE (intu,fmt[,err][,iostat]) [iolist] 

WRITE Statement — List-Directed Internal 

WRITE (intu,*[,err][,iostat]) [iolist] 
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VAX FORTRAN Expression Operators 

The following lists the expression operators in each data type in order of descending precedence: 
Precedence of Operators 



Data Type 


Operator 


Operation 


Operates Upon 


Arithmetic 


** 


Exponentiation 


Arithmetic or logical expressions 




*,/ 


Multiplication, 
division 






+,- 


Addition, subtraction, 
unary plus and minus 




Character 


H 


Concatenation 


Character expressions 


Relational 


.GT. 


Greater than 


Arithmetic, logical, 
or character 



Logical 



GE. 


Greater than or 
equal to 


expressions (all 
relational operators 
have equal precedence) 


LT. 


Less than 




LE. 


Less than or 
equal to 




EQ. 


Equal to 




NE. 


Not equal to 




NOT. 


.NOT.A is true if and 
only if A is false 


Logical or integer 
expressions 


AND. 


A.AND.B is true if 
and only if A and B 
are both true 
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Precedence of Operators (Cont.) 



Data Type 



Operator 



Operation 



Operates Upon 



.OR. 



.EQV. 



.NEQV. 



.XOR. 



A.OR.B is true if 
either A or B or 
both are true 

A.EQV.B is true if and 
only if A and B 
are both true or A 
and B are both false 

A.NEQV.B is true if and 
only if A is true and 
B is false or B is 
true and A is false 

Same as .NEQV. 



.EQV., .NEQV., and 
.XOR. have equal 
priority 



Parentheses may be used to group operands so that they are evaluated irrespective of the precedence of operators. 
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VAX Symbolic Debugger Command Summary 



Debugger Command Qualifiers 

©filespec 

ALLOCATE n-bytes 
ATTACH process-name 
CALL routine [(arg [,arg ...])] 
CANCEL ALL 



CANCEL BREAK 



CANCEL DISPLAY 



/BRANCH 

/CALL 

/EXCEPTION 

INSTRUCTION [=opcode] 

/LINE 

/MODIFY 



i /ALL ) 

<vbreakpt [,breakpt ...]> 



I /ALL ) 

( display-name f 



CANCEL EXCEPTION BREAK 
CANCEL MODE 



CANCEL MODULE 



( /ALL 

I module-name 



CANCEL RADIX [/OVERRIDE ] 

CANCEL SCOPE 

CANCEL SOURCE [ /MODULE=module-name 



CANCEL TRACE 



/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION [^opcode] 

/LINE 

/MODIFY 



/ALL 
Itracept [,tracept 



„,) 



VAX FORTRAN Language Summary 24 



CANCEL TYPE/OVERRIDE 
CANCEL WATCH ( 



/ALL 
watchpt [,watchpt 



J 



CANCEL WINDOW 



/ALL 
window-name [, window-name 



,! 



DECLARE name [:kind] [,name [:kind]] 



DEFINE 



DEFINE/KEY 



/ADDRESS 
/VALUE 
/COMMAND 
/GLOBAL 



symbol = expression [,symbol = expression ...] 



/[NOIECHO 

/[NO]IF_STATE 

/[NO]LOCK_STATE 

/[NO]LOG 

/[NO]SET_STATE 

/[NOITERMINATE 



keyname expression 



DELETE/KEY 



DEPOSIT 



/ALL 
/[NO]LOG 

/[NO] STATE 



/ASCILn 

/ASCIC 

/ASCIW 

/ASCIZ 

/BYTE 

/D_FLOAT 

/FLOAT 

/G_FLOAT 

/H_FLOAT 

ANSTRUCTION 

/LONG 

/OCTAWORD 

/QUADWORD 

/WORD 



keyname 



addr-expresn — expression 
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DISPLAY 



EVALUATE 



/CLEAR 

/GENERATE 

/HIDE 

/MARK_CHANGE 

/REFRESH 

/REMOVE 

/SIZE:n 

/ADDRESS 

/BINARY 

/CONDITION_VALUE 

/DECIMAL 

/HEXADECIMAL 

/OCTAL 

/ASCILn 
/ASCIC 
/ASCID 
/ASCIW 



[display-name [AT window-name] [kind] 



expression [, expression ...] 



EXAMINE 



/ASCIZ 

/BINARY 

/BYTE 

/CONDITION_VALUE 

/D_FLOAT 

/DECIMAL 

/FLOAT 

/G_FLOAT 

/H_FLOAT 

/HEXADECIMAL 

ANSTRUCTION 

/LONG 

/OCTAL 

/OCTAWORD 

/QUADWORD 

/SOURCE 

/[NO] SYMBOL 

/WORD 



addr-expresn [,addr-expresn ...] 
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EXIT 

EXITLOOP [n-level] 

FOR name = expression TO expression [BY expression] DO (debug-cmds) GO 

HELP [topic] 

IF language-expression THEN (debug-cmds) [ELSE (debug-cmds)] 

REPEAT language-expression DO (debug-cmds) 

SAVE old-display AS new-display 



SCROLL 



SEARCH 



/BOTTOM 

A)OWN 

A.EFT 

/RIGHT 

/TOP 

/UP 

"/ALL 
/NEXT 
/IDENTIFIER 
/STRING 



[display-name] 



[range] string 



SELECT 



SET BREAK 



/OUTPUT 
/SCROLL 
/SOURCE 

/AFTER:n 

/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION 

/LINE 

/MODIFY 

/[NOISOURCE 

/RETURN 

/[NO] SILENT 

/TEMPORARY 



display-name 



[=opcode] 



addr-expresn[,addr-expresn...] [WHEN (condition-expresn)] 
[DO (debug-cmds)] 



VAX FORTRAN T^anpuflfrp finmmflrv on 



SET DISPLAY 



/MARK_CHANGE 

/REMOVE 

/SIZEm 



SET EXCEPTION BREAK 
SET LANGUAGE language 
SET LOG filespec 

right- margin 
SET MARGIN ) left-margin:right-margin 



left-margin: 



:right-margin 



[display-name [AT window] [kind]] ,. 



SET MAX_SOURCE_FILES n-files 
SET MODE mode [,mode ...] 
SET MODULE [ /ALLOCATE ] i 



/ALL 



module-name [, module-name ...] 



SET OUTPUT 



SET RADIX 



[NOILOG 

[NO]SCREEN_LOG 
[NOITERMINAL 
[NO] VERIFY 



/INPUT 

/OUTPUT 

/OVERRIDE 



BINARY 

DECIMAL 

DEFAULT 

HEXADECIMAL 

OCTAL 



SET SCOPE [ /MODULE ] location [.location 



SET SEARCH 



ALL 
NEXT 

IDENTIFIER 
STRING 
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SET SOURCE [ /MODULE=module-name 

BRANCH 
CALL 

EXCEPTION 
INSTRUCTION[=opcode] 
INTO 
SET STEP LINE 

OVER 
RETURN 
[NO] SILENT 
[NOISOURCE 
[NOISYSTEM 



filespec 



SET TRACE 



/AFTER:n 

/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION [=opcode] 

/LINE 

/MODIFY 

/[NOISOURCE 

/RETURN 

/[NOISILENT 

/TEMPORARY 



addr-expresn [,addr-expresn 



SET TYPE [ /OVERRIDE 



(ASCII 

Iascid 

JASCILn 

(asciz 



BYTE 
D_FLOAT 
DATE_TIME 
FLOAT 



G_FLOAT 
H_FLOAT 
INSTRUCTION 
LONG 



OCTAWORD ) 
PACKED:n ( 

quadword( 

WORD f 
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SET TERMINALAVIDTH:n 



SET WATCH 



/AFTER:n 
/SILENT 
/SOURCE 
/TEMPORARY 



addr-expresn ,... [WHEN (condition)] 



SET WINDOW name AT (line, line) 
SHOW BREAK 
SHOW CALLS [n-calls] 
SHOW DISPLAY 



SHOW KEY 



/BRIEF 
/DIRECTORY 

/[NO] STATE 



/ALL I 

key-name [, key-name ...]\ 



SHOW LANGUAGE 
SHOW LOG 
SHOW MARGINS 



SHOW MAX_SOURCE_FILES 

SHOW MODE 

SHOW MODULE 

SHOW OUTPUT 

SHOW SCOPE 

SHOW SEARCH 

SHOW SOURCE 

SHOW STEP 



SHOW SYMBOL 



/ADDRESS 

/DIRECT 

/TYPE 



SHOW TRACE 

SHOW TYPE [ /OVERRIDE 

SHOW WATCH 

SHOW WINDOW 

SPAWN [/NOWAIT] 



symbol ,... [IN scope ,...] 



del-command 
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STEP 



/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION [=opcode] 

/INTO 

/LINE 

/OVER 

/RETURN 

/SILENT 

/[NOISOURCE 

/[NO] SYSTEM 



SYMBOLIZE addr-expression 
TYPE [module\]line[:line] ,... 

'/ALL 
UNDEFINE /GLOBAL symbol 

/KEY 
WHILE language-expression DO (debug-cmds) 



n-units 
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VAX FORTRAN Generic and Intrinsic Functions 



Generic and Intrinsic Functions 



Functions 



Number of 
Arguments 



Generic Specific 
Name Name 



Type of 
Argument 



Type of 
Result 



Square Root^ 



Natural Logarithm^ 
logea 



SQRT 



LOG 



SQRT 


REAL*4 


REAL*4 


DSQRT 


REAL*8 


REAL*8 


QSQRT 


REAL*16 


REAL*16 


CSQRT 


C0MPLEX*8 


C0MPLEX*8 


CDSQRT 


C0MPLEX*16 


C0MPLEX*16 


ALOG 


REAL*4 


REAL*4 


DLOG 


REAL*8 


REAL*8 


QLOG 


REAL*16 


REAL*16 


CLOG 


COMPLEXES 


C0MPLEX*8 


CDLOG 


C0MPLEX*16 


C0MPLEX*16 



Common Logarithm^ 

logioa 

Exponential 
e^ 



LOGIO 



EXP 



ALOGIO 


REAL*4 


REAL*4 


DLOGIO 


REAL*8 


REAL*8 


QLOGIO 


REAL*16 


REAL* 16 


EXP 


REAL*4 


REAL*4 


DEXP 


REAL*8 


REAL*8 


QEXP 


REAL*16 


REAL* 16 


CEXP 


C0MPLEX*8 


C0MPLEX*8 


CDEXP 


COMPLEX* 16 


C0MPLEX*16 


SIN 


REAL*4 


REAL*4 


DSIN 


REAL*8 


REAL*8 


QSIN 


REAL*16 


REAL*16 


CSIN 


C0MPLEX*8 


C0MPLEX*8 


CDSIN 


C0MPLEX*16 


C0MPLEX*16 



Sine^ 
Sin a 



SIN 
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Generic and Intrinsic Functions (Cont.) 



Functions 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Sine*^ (degree) 
Sin a 


1 


SIND 


SIND 
DSIND 

QSIND 


REAL*4 
REAL*8 
REAL*16 


REAL*4 
REAL*8 
REAL*16 



Cosine^ 
Cos a 



COS 



COS 


REAL=(=4 


REAL*4 


DCOS 


REAL*8 


REAL*8 


QCOS 


REAL*16 


REAL*16 


CCOS 


COMPLEXES 


COMPLEXES 


CDCOS 


C0MPLEX*16 


C0MPLEX*16 



Cosine^ (degree) 
Cos a 



COSD 



COSD 

DCOSD 

QCOSD 



REAL*4 
REAL*8 
REAL*16 



REAL*4 
REAL*8 
REAL*16 



Tangent^ 
Tana 



Arc Cosine*'^ 
Arc Cos a 



TAN 



TAN 


REAL*4 


REAL*4 


DTAN 


REAL*8 


REAL*8 


QTAN 


REAL*16 


REAL*16 



Tangent*^ (degree) 
Tana 


1 


TAND 


TAND 

DTAND 

QTAND 


REAL*4 
REAL*8 
REAL* 16 


REAL*4 
REAL*8 
REAL*16 




Arc Sine^'^ 
Arc Sin a 


1 


ASIN 


ASIN 
DASIN 

QASIN 


REAL*4 
REAL*8 

REAL*16 


REAL*4 
REAL*8 
REAL*16 




Arc Sine (degree) 
Arc Sin a 


1 


ASIND 


ASIND 

DASIND 

QASIND 


REAL*4 
REAL*8 
REAL*16 


REAL*4 
REAL*8 
REAL*16 





ACQS 



ACQS 


REAL*4 


REAL*4 


DACOS 


REAL*8 


REAL*8 


QACOS 


REAL*16 


REAL*16 
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Generic and Intrinsic Functions (Cont.) 



Functions 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Arc Cosine (degree) 
Arc Cos a 


1 


ACOSD 


ACOSD 

DACOSD 

QACOSD 


REAL*4 
REAL*8 
REAL*16 


REAL*4 
REAL*8 
REAL* 16 


Arc Tangent^ 
Arc Tan a 


1 


ATAN 


ATAN 

DATAN 

QATAN 


REAL*4 
REAL*8 
REAL* 16 


REAL*4 
REAL*8 
REAL* 16 


Arc Tangent^''' (degree) 
Arc Tan a 


1 


ATAND 


ATAND 

DATAND 

QATAND 


REAL*4 
REAL*8 
REAL*16 


REAL*4 
REAL*8 
REAL*16 


Arc Tangent^'^ 
Arc Tan ai/a2 


2 


ATAN2 


ATAN2 
DATAN2 

QATAN2 


REAL*4 
REAL*8 
REAL* 16 


REAL*4 
REAL*8 
REAL*16 



Arc Tangent^'^ (degree) 
Arc Tan ai/a2 



Hyperbolic Tangent 
Tanha 



ATAN2D ATAN2D REAL*4 REAL*4 

DATAN2D REAL*8 REAL*8 

QATAN2D REAL*16 REAL*16 



Hyperbolic Sine 


1 


SINH 


SINH 


REAL*4 


REAL*4 


Sinha 






DSINH 


REAL*8 


REAL*8 








QSINH 


REAL*16 


REAL* 16 


Hyperbolic Cosine 


1 


COSH 


COSH 


REAL*4 


REAL*4 


Cosh a 






DCOSH 


REAL*8 


REAL*8 








QCOSH 


REAL*16 


REAL*16 



TANH 



TANH 


REAL*4 


REAL*4 


DTANH 


REAL*8 


REAL*8 


QTANH 


REAL* 16 


REAL*16 



VAX FORTRAN Language Summary 34 



Generic and Intrinsic Functions (Cont.) 



Functions 



Number of 
Arguments 



Generic 
Name 



Specific 
Name 



Type of 
Argument 



Type of 
Result 



Absolute Value^ 

lal 



Truncation^'^2 

lal 



ABS 


IIABS 


INTEGER*2 


INTEGER*2 




JIABS 


INTEGER*4 


INTEGER*4 




ABS 


REAL*4 


REAL*4 




DABS 


REAL*8 


REAL*8 




QABS 


REAL* 16 


REAL*16 




CABS 


C0MPLEX*8 


REAL*4 




CDABS 


C0MPLEX*16 


REAL*8 


lABS 


IIABS 


INTEGER*2 


INTEGER*2 




JIABS 


INTEGER*4 


INTEGER*4 


INT 


IINT 


REAL*4 


INTEGER*2 




JINT 


REAL*4 


INTEGER*4 




IIDINT 


REAL*8 


INTEGER*2 




JIDINT 


REAL*8 


INTEGER*4 





IIQINT 


REAL* 16 


INTEGER*2 




JIQINT 


REAL*16 


INTEGER*4 




— 


C0MPLEX*8 


INTEGER*2 




— 


C0MPLEX*8 


INTEGER*4 




— 


C0MPLEX*16 


INTEGER*2 




— 


C0MPLEX*16 


INTEGER*4 


IDINT 


IIDINT 


REAL*8 


INTEGER*2 




JIDINT 


REAL*8 


INTEGER*4 


IQINT 


IIQINT 


REAL*16 


INTEGER*2 




JIQINT 


REAL*16 


INTEGER*4 


AINT 


AINT 


REAL*4 


REAL*4 




DINT 


REAL*8 


REAL*8 




QINT 


REAL* 16 


REAL* 16 
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Generic and Intrinsic Functions (Cont.) 





Number of 


Generic 


Specific 


Type of 


Type of 


Functions 


Arguments 


Name 


Name 


Argument 


Result 


Nearest Integer^' ^^ 


1 


NINT 


ININT 


REAL*4 


INTEGER*2 


[a + .5*sign(a)] 






JNINT 


REAL*4 


INTEGER*4 








IIDNNT 


REAL*8 


INTEGER*2 








JIDNNT 


REAL*8 


INTEGER*4 








IIQNNT 


REAL* 16 


INTEGER*2 








JIQNNT 


REAL* 16 


INTEGER*4 




IDNINT 


IIDNNT 


REAL*8 


INTEGER*2 








JIDNNT 


REAL*8 


INTEGER*4 




IQNINT 


IIQNNT 


REAL*16 


INTEGER*2 








JIQNNT 


REAL* 16 


INTEGER*4 




ANINT 


ANINT 


REAL*4 


REAL*4 








DNINT 


REAL*8 


REAL*8 








QNINT 


REAL* 16 


REAL*16 



Zero-Extend Functions 



ZEXT 



IZEXT 


LOGICAL*! 


INTEGER*2 




L0GICAL*2 






INTEGER*2 




JZEXT 


LOGICAL*! 


INTEGER*4 




LOGICAL*2 






L0GICAL*4 






INTEGER*2 






INTEGER*4 




FLOATI 


INTEGER*2 


REAL*4 


FLOATJ 


INTEGER*4 


REAL*4 


— 


REAL*4 


REAL*4 


SNGL 


REAL*8 


REAL*4 


SNGLQ 


REAL*!6 


REAL*4 


— 


C0MPLEX*8 


REAL*4 


— 


C0MPLEX*!6 


REAL*4 



Conversion to^*^ REAL*4 



REAL 
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Generic and Intrinsic Functions (Cont.) 



Functions 



Number of Generic Specific Type of Type of 

Arguments Name Name Argument Result 



Conversion to^^ REAL*8 



DBLE 



— 


INTEGER*2 


REAL*8 


— 


INTEGER*4 


REAL*8 


DBLE 


REAL*4 


REAL*8 


— 


REAL*8 


REAL*8 


DBLEQ 


REAL*16 


REAL*8 


— 


C0MPLEX*8 


REAL*8 


— 


C0MPLEX*16 


REAL*8 





INTEGER*2 


REAL* 16 


— 


INTEGER*4 


REAL* 16 


QEXT 


REAL*4 


REAL*16 


QEXTD 


REAL*8 


REAL* 16 



Conversion to REAL* 16 



QEXT 



REAL*16 

C0MPLEX*8 

C0MPLEX*16 



REAL*16 
REAL*16 
REAL*16 



Pixl0,12 

(REAL*4-to-integer conversion) 


1 


IFIX 


IIFIX 
JIFIX 


REAL*4 
REAL*4 


INTEGER*2 
INTEGER*4 


Floati« 

(Integer-to-REAL*4 conversion) 


1 


FLOAT 


FLOATI 
FLOATJ 


INTEGER*2 
INTEGER*4 


REAL*4 
REAL*4 


REAL*8 Float'° 

(Integer-to-REAL*8 conversion) 


1 


DFLOAT 


DFLOTI 
DFLOTJ 


INTEGER*2 
INTEGER*4 


REAL*8 
REAL*8 


REAL*16 Float 
(Integer- to-REAL* 16 conversion) 


1 


QFLOAT 


- 


INTEGER*2 
INTEGER*4 


REAL*16 
REAL*16 



Conversion to COMPLEXES, 
or 



1,2^3 CMPLX 
1,2 



INTEGER*2 
INTEGER*4 



COMPLEX*^ 
COMPLEX*^ 
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Generic and Intrinsic Functions (Cont.) 



Functions 



Number of 
Arguments 



Generic 
Name 



Specific 
Name 



Type of 
Argument 



Type of 
Result 



C0MPLEX*8 from Two Arguments 



1,2 


— REAL*4 


C0MPLEX*8 


1,2 


— REAL*8 


C0MPLEX*8 


1,2 


— REAL*16 


C0MPLEX*8 


1 


— COMPLEXES 


C0MPLEX*8 


1 


— C0MPLEX*16 


C0MPLEX*8 


1,213 DCMPLX 


— INTEGER*2 


C0MPLEX*16 


1,2 


— INTEGER*4 


COMPLEX* 16 


1,2 


— REAL*4 


C0MPLEX*16 


1,2 


— REAL*8 


C0MPLEX*16 


1,2 


— REAL* 16 


COMPLEX* 16 


1 


— C0MPLEX*8 


C0MPLEX*16 


1 


— C0MPLEX*16 


C0MPLEX*16 



Conversion to C0MPLEX*16, 

or 

COMPLEX* 16 from Two Arguments 



Real Part of Complex 



REAL*8 product of REAL*4's 

ai*a2 



REAL 
DREAL 



COMPLEXES 
C0MPLEX*16 



REAL*4 
REALMS 



Imaginary Part of Complex 


1 — AIMAG COMPLEXES 

DIM AG COMPLEX* 16 


REAL*4 

REAL*8 


Complex from Two Arguments 


(See Conversion to COMPLEXES and 
Conversion to C0MPLEX*16) 




Complex Conjugate 

(ifa = (X,Y) 
CONJG(a) = (X-Y)) 


1 CONJG CONJG C0MPLEX*8 
DCONJG C0MPLEX*16 


C0MPLEX*8 
C0MPLEX*16 



DPROD 



REAL*4 



REAL*8 
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Generic and Intrinsic Functions (Cont.) 



Functions 



Number of 


Greneric 


Specific 


Type of 


Type of 


Arguments 


Name 


Name 


Argument 


Result 


n 


MAX 


IMAXO 


INTEGER*2 


INTEGER*2 






JMAXO 


INTEGER*4 


INTEGER*4 






AMAXl 


REAL*4 


REAL*4 






DMAXl 


REAL*8 


REAL*8 






QMAXl 


REAL* 16 


REAL*16 




MAXO 


IMAXO 


INTEGER*2 


INTEGER*2 






JMAXO 


INTEGER*4 


INTEGERS 




MAXl 


IMAXl 


REAL*4 


INTEGER*2 






JMAXl 


REAL*4 


INTEGER*4 




AMAXO 


AIMAXO 


INTEGER*2 


REAL*4 






AJMAXO 


INTEGER*4 


REAL*4 



Maximum^^ 
max(ai,a2,.--an) 

(returns the maximum 
value from among the 
argument list; there must 
be at least two arguments) 



Minimum^^ 
min(ai,a2,.-aj 

(returns the minimum value 
among the argument list; 
there must be at least two 
arguments) 



MIN 


IMINO 


INTEGER*2 


INTEGER*2 




JMINO 


INTEGER*4 


INTEGER*4 




AMINl 


REAL*4 


REAL*4 




DMINl 


REAL*8 


REAL*8 




QMINl 


REAL*16 


REAL*16 


MINO 


IMINO 


INTEGER*2 


INTEGER*2 




JMINO 


INTEGER*4 


INTEGER*4 


MINI 


IMINl 


REAL*4 


INTEGER*2 




JMINl 


REAL*4 


INTEGER*4 


AMINO 


AIMINO 


INTEGER*2 


REAL*4 




AJMINO 


INTEGER*4 


REAL*4 
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Generic and Intrinsic Functions (Cont.) 





Number of 


Generic 


Specific 


Type of 


Type of 


Functions 


Arguments 


Name 


Name 


Argument 


Result 


Positive Difference 


2 


DIM 


IIDIM 


INTEGER*2 


INTEGER*2 


ai-(min(ai,a2)) 






JIDIM 


INTEGER*4 


INTEGER*4 








DIM 


REAL*4 


REAL*4 


(returns the first argument 






DDIM 


REAL*8 


REAL*8 


minus the minimum of the 






QDIM 


REAL*16 


REAL*16 


two arguments) 


IDIM 


IIDIM 


INTEGER*2 


INTEGER*2 








JIDIM 


INTEGER*4 


INTEGER*4 


Remainder 


2 


MOD 


IMOD 


INTEGER*2 


INTEGER*2 


ai-a2*[ai/a2] 






JMOD 


INTEGER*4 


INTEGER*4 








AMOD 


REAL*4 


REAL*4 


(returns the remainder 






DMOD 


REAL*8 


REAL*8 


when the first argument 






QMOD 


REAL* 16 


REAL*16 


is divided by the second) 













Transfer of Sign 
I El I Sign 82 



SIGN 


IISIGN 


INTEGER*2 


INTEGER*2 




JISIGN 


INTEGER*4 


INTEGER*4 




SIGN 


REAL*4 


REAL*4 




DSIGN 


REAL*8 


REAL*8 




QSIGN 


REAL*16 


REAL*16 


ISIGN 


IISIGN 


INTEGER*2 


INTEGER*2 




JISIGN 


INTEGER*4 


INTEGER*4 



Bitwise AND 
(performs a logical AND on 
corresponding bits) 



lAND 



HAND 
JIAND 



INTEGER*2 
INTEGER*4 



INTEGER*2 
INTEGER*4 



Bitwise OR 
(performs an inclusive OR 
on corresponding bits) 



lOR 



IIOR 
JIOR 



INTEGER*2 
INTEGER*4 



INTEGER*2 
INTEGER*4 
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Generic and Intrinsic Functions (Cont.) 



Functions 


Number of 
Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Bitwise Exclusive OR 
(performs an exclusive OR 
on corresponding bits) 


2 


lEOR 


IIEOR 
JIEOR 


INTEGER*2 
INTEGER*4 


INTEGER*2 
INTEGER*4 


Bitwise Complement 
(complements each bit) 


1 


NOT 


INOT 
JNOT 


INTEGER*2 
INTEGER*4 


INTEGER*2 
INTEGER*4 


Bitwise Shift 
(ai logically shifted left 
a2 bits) 


2 


ISHFT 


IISHFT 
JISHFT 


INTEGER*2 
INTEGER*4 


INTEGER*2 
INTEGER*4 



Bit Extraction 
(extracts bits a2 through 
^2 + ^3 - 1 from ai); see also 
MVBITS system subroutine 



IBITS 



IIBITS 
JIBITS 



INTEGER*2 
INTEGER*4 



INTEGER*2 
INTEGER*4 



Bit Set 
(returns the value of ai 
with bit 32 of ai set 
tol) 



Bitwise Circular Shift ^^ 
(circularly shifts rightmost 
a3 bits of argument ai by a2 
places) 



IBSET IIBSET 
JIBSET 



INTEGER*2 
INTEGER*4 



ISHFTC IISHFTC 
JISHFTC 



INTEGER*2 
INTEGER*4 



INTEGER*2 
INTEGER*4 



Bit Test 


2 


BTEST 


BITEST 


INTEGER*2 


L0GICAL*2 


(returns .TRUE, if bit 






BJTEST 


INTEGER*4 


L0GICAL*4 


a2 of argument ai equals 1) 












Bit Clear 


2 


IBCLR 


IIBCLR 


INTEGER*2 


INTEGER*2 


(returns the value of ai 






JIBCLR 


INTEGER*4 


INTEGER*4 


with bit a2 of ai set to 0) 













INTEGER*2 
INTEGER*4 
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Generic and Intrinsic Functions (Cont.) 










Number of 
Functions Arguments 


Generic 
Name 


Specific 
Name 


Type of 
Argument 


Type of 
Result 


Length^2 1 

(returns length of the 
character expression) 




LEN 


CHARACTER 


INTEGER*4 



Index (Ci.Ca)^^ 
(returns the position of the 
substring C2 in the character 
expression Ci) 



INDEX 



CHARACTER INTEGER*4 



Character^^ 

(returns a character that has 
the ASCII value specified 
by the argument) 



CHAR 



LOGICAL*! 
INTEGER*2 
INTEGER*4 



CHARACTER 



ASCII Value^^ 
(returns the ASCII value of 
the argument; the argument 
must be a character expres- 
sion that has a length of 1) 



ICHAR 



CHARACTER INTEGER*4 



Character relationals 

(ASCII collating sequence) 



LLT 


CHARACTER 


L0GICAL*4 


LLE 


CHARACTER 


LOGICAL*4 


LOT 


CHARACTER 


L0GICAL*4 


LGE 


CHARACTER 


L0GICAL*4 



NOTES 

1. The argument of SQRT, DSQRT, or QSQRT must be greater than or equal to zero. The result of CSQRT or 
CDSQRT is the principal value, with the real part greater than or equal to zero. When the real part is zero, the 
result is the principal value, with the imaginary part greater than or equal to zero. 
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2. The argument of ALOG, DLOG, QSQRT, ALOGIO, DLOGIO, QLOGIO, ATAND, ATAN2D, ASIND, 
DASIND, ACOSD, DACOSD, or QACOSD must be greater than zero. The argument of CLOG or CDLOG must 
not be (0.,0.). 

3. The argument of SIN, DSIN, QSIN, COS, DCOS, QCOS, TAN, DTAN, or QTAN must be in radians. The 
argument is treated modulo 2*7r. The argument of SIND, COSD, or TAND must be in degrees. The argument is 
treated modulo 360. 

4. The absolute value of the argument of ASIN, DASIN, QASIN, ACOS, DACOS, QACOS, ASIND, DASIND, 
QASIND, ACOSD, DACOSD, or QACOSD must be less than or equal to 1. 

5. The result of ASIN, DASIN, QASIN, ACOS, DACOS, QACOS, ATAN, DATAN, QATAN, ATAN2, DATAN2, 
or QATAN2 is in radians. The result of ASIND, DASIND, QASIND, ACOSD, DACOSD, QACOSD, ATAND, 
DATAND, QATAND, ATAN2D, DATAN2D, or QATAN2D is in degrees. 



6. If the value of the first argument of ATAN2, DATAN2, or QATAN2 is positive, the result is positive. When the 
value of the first argument is zero, the result is zero if the second argument is positive and tt if the second 
argument is negative. If the value of the first argument is negative, the result is negative. If the value of the 
second argument is zero, the absolute value of the result is 7r/2. Both arguments must not have the value zero. 
The range of the result for ATAN2, DATAN2, and QATAN2 is: -tt < result < tt. 

7. If the value of the first argument of ATAN2D, DATAN2D, or QATAN2D is positive, the result is positive. 
When the value of the first argument is zero, the result will be zero if the second argument is positive and 180 
degrees if the second argument is negative. If the value of the first argument is negative, the result is negative. If 
the value of the second argument is zero, the absolute value of the result is 90 degrees. Both arguments must not 
have the value zero. The range of the result for ATAN2, DTAN2D, QATAN2D is: -180 degrees < result < 180 
degrees. 

8. The absolute value of a complex number, (X,Y), is the real value: 

9. [x] is defined as the largest integer whose magnitude does not exceed the magnitude of x and whose sign is the 
same as that of x. For example [5.7] equals 5. and [-5.7] equals -5. 
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10. Functions that cause conversion of one data type to another type provide the same effect as the imphed 
conversion in assignment statements. The following functions return the value of the argument without conver- 
sion: the function REAL with a real argument, the function DBLE with a double precision argument, the 
function INT with an integer argument, and the function QEXT with a REAL*16 argument. 

11. See Programming in VAX FORTRAN for additional information on character functions. 

12. The functions INT, IDINT, IQINT, NINT, IDNINT, IQNINT, IFIX, MAXl, MINI, and ZEXT return 
INTEGER*4 values if the /I4 command qualifier is in effect, INTEGER*2 values if the /N0I4 qualifier is in 
effect. 

13. When CMPLX and DCMPLX have only one argument, this argument is converted into the real part of a 
complex value, and zero is assigned to the imaginary part. (When there are two arguments (not complex), a 
complex value is produced by converting the first argument into the real part of the value and converting the 
second argument into the imaginary part.) 

14. Bits in al beyond the value specified by a3 are unaffected. 
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VAX FORTRAN Run-Time Error Summary 

Summary of FORTRAN Run-Time Errors 



FORTRAN 
Condition Symbol 



Error 
Number 



Severity 



Message Text 



FOR$_NOTFORSPE 

FOR$_SYNERRNAM 

FOR$_TOOMANVAL 

FOR$_[NVREFVAR 

FOR$_REWERR 

FOR$_JDUPFILSPE 

FOR$_INPRECTOO 

FOR$_BACERR 

FOR$_ENDDURREA 

FOR$_RECNUMOUT 



1 


F 


17 


F 


18 


F 


19 


F 


20 


F 


21 


F 


22 


F 


23 


F 


24 


F 


25 


F 



not a FORTRAN -specific error 

syntax error in NAMELIST input 

too many values for NAMELIST variable 

invalid reference to variable in NAMELIST input 

REWIND error 

duplicate file specifications 

input record too long 

BACKSPACE error 

end-of-file during read 

record number outside range 



FOR$_OPEDEFREQ 

FOR$_TOOMANREC 

FOR$_CLOERR 

FOR$_FILNOTFOU 

FOR$_OPEFAI 

FOR$_MIXFILACC 

FOR$_INVLOGUNI 

FOR$_ENDFILERR 

FOR$_UNIALROPE 

FOR$_SEGRECFOR 

FOR$_ATTACCNON 

FOR$_INCRECLEN 

FOR$_ERRDURWRI 

FOR$_ERRDURREA 

FOR$_RECIO_OPE 

FOR$_INSVIRMEM 



26 


F 


OPEN or DEFINE FILE required 


27 


F 


too many records in I/O statement 


28 


F 


CLOSE error 


29 


F 


file not found 


30 


F 


open failure 


31 


F 


mixed file access modes 


32 


F 


invalid logical unit number 


33 


F 


ENDFILE error 


34 


F 


unit already open 


35 


F 


segmented record format error 


36 


F 


attempt to access non-existent record 


37 


F 


inconsistent record length 


38 


F 


error during write 


39 


F 


error during read 


40 


F 


recursive I/O operation 


41 


F 


insufficient virtual memory 
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Summary of FORTRAN Run-Time Errors (Cont.) 



FORTRAN 
Condition Symbol 



Error 

Number Severity 



Message Text 



FOR$_NO_SUCDEV 

FOR$_FILNAMSPE 

FOR$_[NCRECTYP 

FOR$_KEYVALERR 

FOR$_[NCOPECLO 

FOR$_WRIREAFIL 

FOR$_JNVARGFOR 

FOR$_JNVKEYSPE 

FOR$_INCKEYCHG 

FOR$__INCFILORG 

FOR$_SPERECLOC 

FOR$_NO_CURREC 



42 


F 


43 


F 


44 


F 


45 


F 


46 


F 


47 


F 


48 


F 


49 


F 


50 


F 


51 


F 


52 


F 


53 


F 



no such device 

file name specification error 

inconsistent record type 

keyword value error in OPEN statement 

inconsistent OPEN/CLOSE parameters 

write to READONLY file 

invalid argument to FORTRAN Run-Time Library 

invalid key specification 

inconsistent key change or duplicate key 

inconsistent file organization 

specified record locked 

no current record 



FOR$_REWRITERR 

FOR$_DELERR 

FOR$_UNLERR 

FOR$_FINERR 

FOR$_LISIO_SYN 

FOR$_[NFFORLOO 

FOR$_FORVARMIS 

FOR$_SYNERRFOR 

FOR$_OUTCONERR 

FOR$_[NPCONERR 

FOR$_OUTSTAOVE 

FOR$_INPSTAREQ 

FOR$_VFEVALERR 

SS$_INTOVF 

SS$_INTDIV 

SS$_FLTOVF 



54 


F 


55 


F 


56 


F 


57 


F 


59 


F,C 


60 


F 


61 


F,C 


62 


F 


63 


E,C 


64 


F,C 


66 


F 


67 


F 


68 


F,C 


70 


F,C 


71 


F,C 


72 


F,C 



REWRITE error 

DELETE error 

UNLOCK error 

FIND error 

list-directed I/O syntax error 

infinite format loop 

format/variable-type mismatch 

syntax error in format 

output conversion error 

input conversion error 

output statement overflows record 

input statement requires too much data 

variable format expression value error 

arithmetic trap, integer overflow 

arithmetic trap, integer zero divide 

arithmetic trap, floating overflow 
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Summary of FORTRAN Run-Time Errors (Cont.) 



FORTRAN 
Condition Symbol 



Error 
Number 



Severity 



Message Text 



SS$__FLTOVF_F 

SS$_FLTDIV 

SS$_FLTDIV_F 

SS$_FLTUND 

SS$_FLTUND_F 

SS$_SUBRNG 

MTH$_WRONUMARG 

MTH$_INVARGMAT 

MTH$_UNDEXP 

MTH$_LOGZERNEG 

MTH$_SQUROONEG 



72 


F,C 


73 


F,C 


73 


F,C 


74 


F,C 


74 


F,C 


77 


F,C 


80 


F 


81 


F 


82 


F,C 


83 


F,C 


84 


F,C 



arithmetic fault, floating overflow 
arithmetic trap, zero divide 
arithmetic fault, zero divide 
arithmetic trap, floating underflow 
arithmetic fault, floating overflow 
subscript out of range 
wrong number of arguments 
invalid argument to math library 
undefined exponentiation 
logarithm of zero or negative value 
square root of negative value 



MTH$_SIGLOSMAT 
MTH$_FLOOVEMAT 
MTH$_FLOUNDMAT 
FOR$^\DJARRDIM 



87 


F,C 


88 


F,C 


89 


F,C 


93 


F,C 



significance lost in math library 
floating overflow in math library 
floating underflow in math library 
adjustable array dimension error 
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Character Sets 

Standard FORTRAN Character Set 

The character set specified by the FORTRAN 77 Standard consists of the uppercase letters A through Z, the 
digits through 9, and the following special characters: 

HT (tab) + (plus sign) 

SP (space) , (comma) 

$ (dollar sign) - (minus sign) 

(apostrophe) . (period) 

( (left parenthesis) / (slash) 

) (right parenthesis) : (colon) 

* (asterisk) = (equal sign) 



VAX FORTRAN Character Set 

The VAX FORTRAN character set includes the entire FORTRAN 77 Standard set plus the lower case letters a 
through z (upper- and lowercase letters are equivalent) and the following special characters: 

! (exclamation mark) < (left angle bracket) 

" (quotation mark) > (right angle bracket) 

% (percent sign) (underscore) 

& (ampersand) 

All printable characters (those with ASCII values 20 through 7D, inclusive) can appear in character constants, 
Hollerith constants, and comments. 
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ASCII Character Set 



ASCII Character Set 
Column 



Row 



NUL DLE SP 



1 


SOH 


DCl 


! 


1 


A 


Q 


a 


q 


2 


STX 


DC2 


" 


2 


B 


R 


b 


r 


3 


ETX 


DC3 


# 


3 


C 


S 


c 


s 


4 


EOT 


DC4 


$ 


4 


D 


T 


d 


t 


5 


ENQ 


NAK 


% 


5 


E 


U 


e 


u 


6 


ACK 


SYN 


& 


6 


F 


V 


f 


V 


7 


BEL 


ETB 




7 


G 


w 


g 


w 



8 BS CAN ( 8 H X 

9 HT EM ) 9 I Y 





A LF 


SUB * 




J 


Z j z 




B VT 


ESC + 


; 


K 


[ k { 




C FF 


FS 


< 


L 


\ 1 1 




D CR 


GS 


= 


M 


] m j 




E SO 


RS 


> 


N 


n 




F SI 


US / 


7 





_ DEL 


NUL 


Null 




DLE 




Data Link Escape 


SOH 


Start of Heading 


DCl 




Device Control 1 


STX 


Start of Text 




DC2 




Device Control 2 


ETX 


End of Text 




DC3 




Device Control 3 


EOT 


End of Transmission 


DC4 




Device Control 4 


ENQ 


Enquiry 




NAK 




Negative Acknowledge 


ACK 


Acknowledge 




SYN 




Synchronous Idle 


BEL 


Bell 




ETB 




End of Transmission Block 
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ASCII Character Set (Cont.) 



BS 


Backspace 


CAN 


Cancel 


HT 


Horizontal Tabulation 


EM 


End of Medium 


LF 


Line Feed 


SUB 


Substitute 


VT 


Vertical Tab 


ESC 


Escape 


FF 


Form Feed 


FS 


File Separator 


CR 


Carriage Return 


GS 


Group Separator 


SO 


Shift Out 


RS 


Record Separator 


SI 


Shift In 


US 


Unit Separator 


SP 


Space 


DEL 


Delete 
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